home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMBR5.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  652b  |  28 lines
  1. Program DemoBrowseArrayFive;
  2. {DEMBR5 - changing default colors}
  3.  
  4. Uses DOS,CRT,
  5.      totINPUT, totFAST,totLIST, totSTR;
  6.  
  7. var
  8.    BWin: BrowseArrayOBJ;
  9.    StringList: array[1..26] of string[100];
  10.    I : integer;
  11.  
  12. begin
  13.    for I := 1 to 26 do  {first assign something to the string array}
  14.       StringList[I] := 'Line '+IntToStr(I)+': '+replicate(80,char(I+64));
  15.    Screen.Clear(white,'░'); {paint the screen}
  16.    Key.SetFast;
  17.    Key.SetClick(true);
  18.    with BWin do
  19.    begin
  20.       Init;
  21.       AssignList(StringList,26,100);
  22.       {now lets change some colors}
  23.       Win^.SetColors(23,27,31,30);
  24.       Go;
  25.       Done;
  26.    end;
  27. end.
  28.